home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / screen / backgr / readme.txt < prev   
Encoding:
Text File  |  1994-09-22  |  1.8 KB  |  46 lines
  1.  
  2. Hello, Thanx for trying my gradiant fill program!
  3.  
  4. This program will perform a gradiant fill on the background of a form using
  5. any starting and ending color.  It does this by creating a 1 pixel 
  6. bitmap with all the appropriate color shades and saving it as a 256 color 
  7. bitmap named "custom.bmp".  This bitmap is then loaded into the forms picture
  8. to give the form all the available shades.  This program is meant to be run 
  9. in 256 color mode although it will work with 16 colors.  I have not tested it 
  10. using 16 million colors because I'm pretty sure it will not work.
  11.  
  12.  
  13. To use simply click on the form and select from the chooser dialog
  14. -----------------------------------------------------------------------
  15. Under Colors:
  16.     Select one of the predefined colors or choose custom
  17.     color.  Once you have choosen custom color click on one 
  18.     of the colors to change to a new color.
  19.  
  20. Under Styles:
  21.     Select one of the available styles.
  22.     Invert will switch the From and To Colors
  23.  
  24. # of Steps:
  25.     This is the number of color gradiant steps to be used to
  26.     render the drawing (max of 255).
  27.  
  28. -----------------------------------------------------------------------
  29.  
  30. If you want to use this in your program follow these steps:
  31.  
  32. 1. Include the Backgrnd.Bas file in your program
  33. 2. On the form you want the effect to appear add the following code:
  34. -----------------------------------------------------------------------
  35. Dim i%
  36. If CreateBitMap(128, RGB(255, 0, 0), RGB(0, 255, 0)) Then
  37.     Me.Picture = LoadPicture("Custom.bmp")
  38.     Call DrawBackGround(Me, "This is a test", RGB(255, 0, 0), RGB(0, 255, 0), 0, 128)
  39. End If
  40. -----------------------------------------------------------------------
  41. 3. That's All!!
  42.  
  43. I hope you like it.  Mail me with any suggestions or comments.
  44.  
  45. Michael McCarthy
  46. Metamorphosis